home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / S-Sh / ScrollBar.cpt / ScrollBar Stack / background_6693.txt < prev    next >
Text File  |  1990-04-17  |  4KB  |  157 lines
  1. -- background: 6693 from stack: in
  2. -- bmap block id: 7291
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on closeCard
  8.   if the visible of cd fld "Script" then send mouseUp to bg btn "Hide Script"
  9. end closeCard
  10.  
  11. on playTune
  12.   global Tempo, Pitch
  13.   put "A" & Pitch & "Q. GE F#Q EQ DQ EQ F#Q DQ EE" && "F#E GE EE F#Q. EE DQ C#Q DH AQ. GE F#Q EQ DQ EQ F#Q DQ EE" && "F#E GE EE F#Q. EE DQ C#Q DH EQ. F#E GQ EQ F#Q. GE AQ EQ F#E" && "G#E AQ BE C" & Pitch+1 & "#E DQ C#Q B" & Pitch & "Q AH AQ." && "GE F#Q EQ DQ EQ F#Q DQ BE BE BE BE AQ. GE F#Q EQ DH" into tune
  14.   play "Harpsichord" tempo Tempo tune
  15. end playTune
  16.  
  17.  
  18.  
  19. -- part 2 (button)
  20. -- low flags: 00
  21. -- high flags: 0000
  22. -- rect: left=0 top=0 right=16 bottom=497
  23. -- title width / last selected line: 0
  24. -- icon id / first selected line: 0 / 0
  25. -- text alignment: 1
  26. -- font id: 0
  27. -- text size: 12
  28. -- style flags: 0
  29. -- line height: 16
  30. -- part name: 
  31. ----- HyperTalk script -----
  32. on drawIt
  33.   put ScrollBar(false, true, false, 0, 100, 50, -1) into it
  34. end drawIt
  35.  
  36.  
  37. -- part 3 (field)
  38. -- low flags: 01
  39. -- high flags: 0004
  40. -- rect: left=22 top=46 right=268 bottom=295
  41. -- title width / last selected line: 0
  42. -- icon id / first selected line: 0 / 0
  43. -- text alignment: 0
  44. -- font id: 33
  45. -- text size: 14
  46. -- style flags: 0
  47. -- line height: 18
  48. -- part name: Desc
  49.  
  50.  
  51. -- part 4 (button)
  52. -- low flags: 00
  53. -- high flags: 0000
  54. -- rect: left=15 top=277 right=301 bottom=45
  55. -- title width / last selected line: 0
  56. -- icon id / first selected line: 30557 / 30557
  57. -- text alignment: 1
  58. -- font id: 0
  59. -- text size: 12
  60. -- style flags: 0
  61. -- line height: 16
  62. -- part name: First
  63. ----- HyperTalk script -----
  64. on mouseUp
  65.   go first card
  66. end mouseUp
  67.  
  68.  
  69.  
  70. -- part 5 (button)
  71. -- low flags: 00
  72. -- high flags: 0000
  73. -- rect: left=15 top=300 right=324 bottom=45
  74. -- title width / last selected line: 0
  75. -- icon id / first selected line: 1014 / 1014
  76. -- text alignment: 1
  77. -- font id: 0
  78. -- text size: 12
  79. -- style flags: 0
  80. -- line height: 16
  81. -- part name: Prev
  82. ----- HyperTalk script -----
  83. on mouseUp
  84.   goPrev
  85. end mouseUp
  86.  
  87.  
  88.  
  89. -- part 6 (button)
  90. -- low flags: 00
  91. -- high flags: 0000
  92. -- rect: left=465 top=277 right=301 bottom=497
  93. -- title width / last selected line: 0
  94. -- icon id / first selected line: 21700 / 21700
  95. -- text alignment: 1
  96. -- font id: 0
  97. -- text size: 12
  98. -- style flags: 0
  99. -- line height: 16
  100. -- part name: Home
  101. ----- HyperTalk script -----
  102. on mouseUp
  103.   go home
  104. end mouseUp
  105.  
  106.  
  107.  
  108. -- part 7 (button)
  109. -- low flags: 00
  110. -- high flags: 0000
  111. -- rect: left=465 top=300 right=324 bottom=497
  112. -- title width / last selected line: 0
  113. -- icon id / first selected line: 1013 / 1013
  114. -- text alignment: 1
  115. -- font id: 0
  116. -- text size: 12
  117. -- style flags: 0
  118. -- line height: 16
  119. -- part name: Next
  120. ----- HyperTalk script -----
  121. on mouseUp
  122.   goNext
  123. end mouseUp
  124.  
  125.  
  126.  
  127. -- part 9 (button)
  128. -- low flags: 00
  129. -- high flags: 0000
  130. -- rect: left=235 top=277 right=324 bottom=291
  131. -- title width / last selected line: 0
  132. -- icon id / first selected line: 2641 / 2641
  133. -- text alignment: 1
  134. -- font id: 0
  135. -- text size: 12
  136. -- style flags: 0
  137. -- line height: 16
  138. -- part name: Show Script
  139. ----- HyperTalk script -----
  140. on mouseUp
  141.   if the short name of me = "Hide Script" then
  142.     lock screen
  143.     hide cd fld "Script"
  144.     set the name of me to "Show Script"
  145.     set icon of me to "Zoom Out"
  146.     unlock screen with iris close
  147.   else
  148.     lock screen
  149.     show cd fld "Script"
  150.     set the scroll of cd fld "Script" to 0
  151.     set the name of me to "Hide Script"
  152.     set icon of me to "Zoom In"
  153.     unlock screen with iris open
  154.   end if
  155. end mouseUp
  156.  
  157.